home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Tools / TWL_MODS / KERNETLM / TLM / DATEN / KDKS / MICE_LV.KDK < prev   
Encoding:
Text File  |  2000-05-06  |  500 b   |  14 lines
  1. ; Redcode-Programm "Maeuse":
  2.  
  3. Zaehler DAT  #0           #0
  4. Start   MOV  #Laenge    Zaehler
  5. Kopier  MOV  @Zaehler  <Ziel     ; Es wird alles bis auf die erste
  6.         DJN   Kopier    Zaehler  ; Anweisung kopiert.
  7.         SPL  @Ziel               ; Die neue Maus ist da.
  8.         ADD  #653       Ziel     ; Das neue Kopierziel wird eingestellt.
  9.         JMZ   Start     Zaehler  ; Selbstmord, falls `was schief ging. 
  10. Ziel    DAT  #0        #833
  11.  
  12. Laenge  EQU   Ziel-Zaehler
  13.         END   Start
  14.